home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00066_Script_new map script < prev    next >
Text File  |  1999-04-25  |  2KB  |  71 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------ 
  13. -------*This script is not used in this version of the movie*----------
  14.  
  15. on get behaviorDescription
  16.   return "new map script"
  17. end
  18.  
  19.  
  20. on mouseEnter me
  21.   global gSub 
  22.   if gSub <> the spritenum of me then
  23.     set the castnum of sprite the spritenum of me to the castnum of sprite the spritenum of me +1
  24.     updatestage 
  25.   end if
  26. end
  27.  
  28. on mouseleave me
  29.   global gSub
  30.   if gSub <> the spritenum of me then
  31.     set the castnum of sprite the spritenum of me to the castnum of sprite the spritenum of me-1
  32.     updatestage
  33.   end if
  34. end
  35.  
  36. on mouseup me
  37.   global gPair,gSub,gBgimg
  38.   
  39.   set gSub=the spritenum of me
  40.   
  41.   
  42.   if gPair <> "" and gPair<>the spritenum of me then
  43.     -- the secound city in a pair was selected.
  44.     -- we will allways concutanate the sprites, with the smaller sprite
  45.     -- first.
  46.     if gPair > the spritenum of me then
  47.       set gBgimg=the spritenum of me *100+gPair
  48.     else
  49.       set gBgimg=the spritenum of me+gPair*100
  50.     end if
  51.     set gPair=""
  52.     put gBgimg
  53.     --set the castnum of sprite 2 = bgimg
  54.   else
  55.     --the first city in a pair was selected.
  56.     set gPair=the spritenum of me
  57.     if gBgimg<>0 then
  58.       set sprt1=gBgimg/100
  59.       put sprt1
  60.       set sprt2=gBgimg-sprt1*100
  61.       put sprt2
  62.       set the castnum of sprite  sprt1 to the castnum of sprite sprt1-1
  63.       set the castnum of sprite sprt2 to the castnum of sprite sprt2-1
  64.       updatestage
  65.     end if
  66.     
  67.   end if
  68.   
  69. end
  70.  
  71.